home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / games / strategy / madgic-corewar-4.0.lzh / 1988 / drdeath.s < prev    next >
Text File  |  1989-10-04  |  2KB  |  52 lines
  1. ;Dr. Death
  2. ;by A. K. Dewdney
  3. ;Canada
  4. ;
  5. START         SPL                    PARTA
  6.               SPL                    PARTB
  7. PTR           SPL                    PARTC
  8. TOP           MOV   #  0,             PTR
  9. ZAP           MOV      PTR,           BOMB
  10. SPAWNA        JMP      TOP
  11. PARTA         MOV   #  0,          @  WHOA
  12.               ADD   #  101,           WHOA
  13. LOOPA         MOV   #  0,          @  WHOB
  14.               ADD   #  101,           WHOB
  15. WHOA          MOV   #  1,             BANG
  16. PARTB         JMP      LOOPA
  17. WHOB          DAT                    500
  18. CENTER        CMP   @  BOMB,       @  BOMB
  19.               JMP      KILL
  20.               CMP   # -1,             BOMB
  21.               JMP      SKIP1
  22.               SUB   # -32,            BOMB
  23.               SUB   # -32,            BOMB+1
  24. SKIP1         ADD   #  1,             BOMB
  25.               ADD   #  1,             BOMB+1
  26. PARTC         MOV   #  1,             DONG
  27.               JMP      CENTER
  28. MID           SUB   #  1,             BANG-1
  29.               JMZ      SKIP2,         BANG-1
  30.               SPL                    SPAWNA
  31. SKIP2         SUB   #  1,             BANG
  32.               JMZ      SKIP3,         BANG
  33.               SPL                    LOOPA
  34. ; 
  35. SKIP3         SUB   #  1,             DONG
  36.               JMZ      SKIP4,         DONG
  37.               SPL                    CENTER
  38. SKIP4         SUB   #  1,             DONG+1
  39.               JMZ      SKIP5,         DONG+1
  40.               SPL                   -51
  41. SKIP5         MOV   #  1,             ZAP
  42.               JMP      MID
  43. KILL          MOV   @  BOMB,       @  BOMB+1
  44.               JMP      CENTER
  45. BOMB          DAT                    SPAWNA
  46.               DAT                   -75
  47.               DAT                    1
  48. BANG          DAT                    1
  49. DONG          DAT                    1
  50.               DAT                    1
  51.               END                    START
  52.